home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / comp0_89.lha / Feel / Boot / Compiler / low-asm.em < prev    next >
Text File  |  1993-02-02  |  1KB  |  53 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: low-asm.em
  4. ;; Date: Wed Jan 29 21:51:30 1992
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule low-asm
  11.   (standard0
  12.    list-fns
  13.          
  14.    )
  15.   ()
  16.   
  17.   ;; Target for compilation
  18.  
  19.   (defstruct compile-unit ()
  20.     ;; a-list of values
  21.     ((statics initarg statics
  22.           reader compile-unit-statics)
  23.      (name initarg name 
  24.        reader compile-unit-name)
  25.      (local-count initarg local-count
  26.           reader compile-unit-local-count)
  27.      (byte-codes initarg byte-codes
  28.          reader compile-unit-byte-codes)
  29.      ;; Import format is (module-name name)
  30.      (imports initarg imports 
  31.           reader compile-unit-imports)
  32.      ;; list of ids
  33.      (exports initarg exports
  34.           reader compile-unit-exports))
  35.     constructor make-compile-unit)
  36.  
  37.   ;; Link tables.
  38.   ;; The idea is that all the 
  39.   ;; references (internal and external) get shoved into here
  40.   ;; and one pass resolves the lot at load time (call me lazy 
  41.   ;; if you must).
  42.   
  43.   (defstruct link-table ()
  44.     ((tab initform (make-table eq)
  45.       reader link-table-tab)
  46.      (local-link-tab initform (make-table eq)
  47.              reader link-tab-internal-links))
  48.     constructor (make-link-table))
  49.      
  50.   
  51.   ;; end module
  52.   )
  53.